note
	description: "Summary description for {MIRAGE}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	MIRAGE

create
	make

feature
	make
		is
				-- Crea el Modulo Mirage
		do
			!!mc72.make_mc72
		end

	apuntar_objetivo(target:STRING)
		is
				-- Apunta al objetivo y lanza el misil
		local
			operflag:INTEGER
			countaim:INTEGER
			terminate:BOOLEAN
		do
			if (not terminate) then
				operflag:=0
					io.put_string ("Mirage: Preparando misil...%N")
				mc72.preparar_misil
					io.put_string ("Mirage: Misil preparado con exito.%N")
				operflag:=1
					io.put_string ("Mirage: Fijando como objetivo: %"")
					io.put_string (target)
					io.put_string ("%"...%N")
				mc72.apuntar_misil (target)
					io.put_string ("Mirage: Objetivo fijado con exito: %"")
					io.put_string (target)
					io.put_string ("%"%N")
				operflag:=2
					io.put_string ("Mirage: Lanzando misil...%N")
				mc72.lanzar_misil
					io.put_string ("Mirage: El misil ha despegado con exito.%N")
					io.put_string ("Mirage: OBJETIVO DESTRUIDO")
				operflag:=3
			end
		rescue
			inspect	operflag
				when 0 then
			    	terminate:=true
			    	retry
				when 1 then
					if (countaim< 5) then
						countaim := countaim + 1
						retry
					end
			end
		end

feature {NONE}
	mc72:MC72

end
